COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "TEST6"
C00009 ENDMK
C⊗;
BEGIN "TEST6"

	REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;
	REQUIRE "GEOMES.HDR" SOURCE_FILE;
	REQUIRE "SLICE2" LOAD_MODULE;

	EXTERNAL ITG SUBR MKCUTZ(INTEGER B,N);
	ITG B,B0,B1,B2,B3,N,CHR,FLG; STRING STR;
	ITG F,E,E0,V;
	REAL ARRAY WC[1:3];

	GEONIT;

α GET ARGUMENTS;

	OUTSTR("	NUMBER OF CUTS = ");STR←INCHWL;
	N ← ABS(INTSCAN(STR,CHR));IF N=0 THEN N←8;

	OUTSTR("	GEM FILE = ");STR ←INCHWL;
	B1 ← IGEM(STR);
	IF STR="H" THEN ICAM("TMP.CAM");

	B1 ← MKCUTZ(B1,N);
α OUTPUT;
	OPEN(1,"DSK",8,0,3,0,0,0);
	ENTER(1,STR&".CRX",FLG);

	B0← B ← SON(B1);
DO BEGIN
	F ← PFACE(B);
	WORDOUT(1,NED(F));
	WORDOUT(1,CCW(F));
	WORDOUT(1,CW(F));
	E ← E0 ← PED(F);
	DO BEGIN
		V ← VCCW(E,F);
		WC[1] ← XWC(V);
		WC[2] ← YWC(V);
		WC[3] ← ZWC(V);
		ARRYOUT(1,WC[1],3);
	END UNTIL E0 = (E←ECCW(E,F));
END UNTIL B0 = (B←SIS(B));

	WORDOUT(1,0); RELEASE(1);
	OUTSTR(9&"EOF - "&STR&".CRX"&↓);

END "TEST6"; BGB 1 FEBRUARY 1974.